home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ruthie / instgam1.frm < prev    next >
Text File  |  1995-05-08  |  3KB  |  98 lines
  1. VERSION 2.00
  2. Begin Form InstGame1 
  3.    Caption         =   "RuthieWare"
  4.    ClientHeight    =   4125
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   4560
  8.    Height          =   4530
  9.    Left            =   1035
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form3"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4125
  15.    ScaleWidth      =   4560
  16.    Top             =   1140
  17.    Width           =   4680
  18.    Begin PictureBox InstPicture 
  19.       Height          =   3855
  20.       Left            =   120
  21.       ScaleHeight     =   3825
  22.       ScaleWidth      =   4305
  23.       TabIndex        =   0
  24.       Top             =   120
  25.       Width           =   4335
  26.       Begin CommandButton Continue 
  27.          Caption         =   "Continue"
  28.          Height          =   375
  29.          Left            =   1320
  30.          TabIndex        =   5
  31.          Top             =   3360
  32.          Width           =   1455
  33.       End
  34.       Begin TextBox Text3 
  35.          BorderStyle     =   0  'None
  36.          Enabled         =   0   'False
  37.          Height          =   615
  38.          Left            =   240
  39.          MultiLine       =   -1  'True
  40.          TabIndex        =   4
  41.          Text            =   "Click on the Left Arrow to go to Game 2. Click on the Stop sign to quit."
  42.          Top             =   2760
  43.          Width           =   3855
  44.       End
  45.       Begin TextBox Text2 
  46.          BorderStyle     =   0  'None
  47.          Enabled         =   0   'False
  48.          Height          =   975
  49.          Left            =   240
  50.          MultiLine       =   -1  'True
  51.          TabIndex        =   3
  52.          Text            =   "Playing Game 1 is easy! If you click on the red square, you'll see the sunburst picture. If you miss the red square, you'll see a sad face."
  53.          Top             =   1800
  54.          Width           =   3855
  55.       End
  56.       Begin TextBox Text1 
  57.          BorderStyle     =   0  'None
  58.          Enabled         =   0   'False
  59.          FontBold        =   -1  'True
  60.          FontItalic      =   0   'False
  61.          FontName        =   "MS Sans Serif"
  62.          FontSize        =   12
  63.          FontStrikethru  =   0   'False
  64.          FontUnderline   =   0   'False
  65.          Height          =   375
  66.          Left            =   2160
  67.          TabIndex        =   2
  68.          Text            =   "Playing Game 1"
  69.          Top             =   1320
  70.          Width           =   2055
  71.       End
  72.       Begin PictureBox SuccessPict1 
  73.          BorderStyle     =   0  'None
  74.          Height          =   1335
  75.          Left            =   240
  76.          Picture         =   INSTGAM1.FRX:0000
  77.          ScaleHeight     =   1335
  78.          ScaleWidth      =   1815
  79.          TabIndex        =   1
  80.          Top             =   240
  81.          Width           =   1815
  82.       End
  83.    End
  84. End
  85. Sub Continue_Click ()
  86.     InstGame1.Hide
  87. End Sub
  88.  
  89. Sub Form_Load ()
  90.     Top = (Screen.Height - InstGame1.Height) / 2
  91.     Left = (Screen.Width - InstGame1.Width) / 2
  92. End Sub
  93.  
  94. Sub SuccessPict1_Click ()
  95.     InstGame1.Hide
  96. End Sub
  97.  
  98.